*************************************************************************
*** MENUPRES.PRG.: Menu Principal del programa RESERVA
*** Fecha: 12 Febrero 1996
*** Autor: Ana I Almaden Noya para J.A.S.
*** Reservados todos los derechos sobre el presente programa
*************************************************************************

#include "textaba.ch"

function MENUPRES()

LOCAL aTexto,aTexto1,aTexto16,aTexto17,aTexto2,aTexto3,aTexto4,;
      aTexto41,aTexto42,aTexto45

LOCAL aBlock[4],aBlock1[7],aBlock16[5],aBlock17[5],aBlock2[5],aBlock3[5],;
      aBlock4[5],aBlock41[5],aBlock42[5],aBlock45[2]


PUBLIC PASS := "hola"

*** Menu de MANTENIMIENTO ****************

aTexto1 := {textRES11,textRES12,textRES13,textRES14,textRES15,textRES16,textRES17}
aBlock1[1] := {| | MANTERES("A")}  //Altas
aBlock1[2] := {| | MANTERES("B")}  //Bajas
aBlock1[3] := {| | MANTERES("M")}  //Modificaciones
aBlock1[4] := {| | MANTERES("C")}  //COnsultas
aBlock1[5] := {| | MANTERES("V")}  //Visualizacion
aBlock1[6] := {| | Menuv(8,15,aTexto16,aBlock16)}  //Tipos de ABONO
aBlock1[7] := {| | Menuv(9,15,aTexto17,aBlock17)}  //Zonas de ABONO


*** Menu de TIPOS de ABONO ****************

aTexto16 := {textRES11,textRES12,textRES13,textRES14,textRES15}
aBlock16[1] := {| | TIPOSABO("A")}  //Altas
aBlock16[2] := {| | TIPOSABO("B")}  //Bajas
aBlock16[3] := {| | TIPOSABO("M")}  //Modificaciones
aBlock16[4] := {| | TIPOSABO("C")}  //COnsultas
aBlock16[5] := {| | TIPOSABO("V")}  //Visualizacion


*** Menu de ZONAS de ABONO ****************

aTexto17 := {textRES11,textRES12,textRES13,textRES14,textRES15}
aBlock17[1] := {| | ZONASABO("A")}  //Altas
aBlock17[2] := {| | ZONASABO("B")}  //Bajas
aBlock17[3] := {| | ZONASABO("M")}  //Modificaciones
aBlock17[4] := {| | ZONASABO("C")}  //COnsultas
aBlock17[5] := {| | ZONASABO("V")}  //Visualizacion


*** Menu de RECOGIDAS ****************

aTexto2 := {textRES21,textRES22,textRES23,textRES24,textRES25}
aBlock2[1] := {| | RECORES("NA")}  //Numero de Abono
aBlock2[2] := {| | RECORES("TA")}  //Tipo de Abono
aBlock2[3] := {| | RECORES("?")}  //
aBlock2[4] := {| | RECORES("?")}  //
aBlock2[5] := {| | RECORES("?")}  //


*** Menu de RESERVAS ******************

aTexto3 := {textRES31,textRES32,textRES33,textRES34,textRES35}

aBlock3[1] := {| | RESERES ("NA")} //RESERVAS por Numero de Abono
aBlock3[2] := {| | RESERES ("M")}  //RESERVAS por Mes de Reserva
aBlock3[3] := {| | RESERES ("?")}  //
aBlock3[4] := {| | RESERES ("?")}  //
aBlock3[5] := {| | RESERES ("?")}  //


*** Menu de INFORMES ****************

aTexto4 := {textRES41,textRES42,textRES43,textRES44,textRES45}
aBlock4[1] := {| | Menuv(3,40,aTexto41,aBlock41)}  //ACTIVOS
aBlock4[2] := {| | Menuv(4,40,aTexto42,aBlock42)}  //TOTALES
aBlock4[3] := {| | INFORES ("NREC")}  //NO Recogidos
aBlock4[4] := {| | INFORES ("?")}  //
aBlock4[5] := {| | Menuv (7,40,aTexto45,aBlock45)}  // INFORMES GENERADOS


*** Menu de INFORMES ACTIVOS ****************

aTexto41 := {textRES411,textRES412,textRES413,textRES414,textRES415}
aBlock41[1] := {| | INFORES ("A", "T")}   //ACTIVOS TOTALES
aBlock41[2] := {| | INFORES ("A", "RES")} //ACTIVOS RESERVADOS
aBlock41[3] := {| | INFORES ("A", "TA")}  //ACTIVOS TIPO ABONO
aBlock41[4] := {| | INFORES ("A", "E")}   //ACTIVOS EDAD
aBlock41[5] := {| | INFORES ("?")} //


*** Menu de INFORMES TOTALES ****************

aTexto42 := {textRES421,textRES422,textRES423,textRES424,textRES425}
aBlock42[1] := {| | INFORES ("T", "E")}  //TOTALES EDAD
aBlock42[2] := {| | INFORES ("T", "TA")} //TOTALES TIPO ABONO
aBlock42[3] := {| | INFORES ("?")} //
aBlock42[4] := {| | INFORES ("?")} //
aBlock42[5] := {| | INFORES ("?")} //


*** Menu de INFORMES GENERADOS *************
Atexto45 := {text9451,text9452}

aBlock45[1] := {| | INFORES("GEN","I") } //Imprimir INFORMES GENERADOS
aBlock45[2] := {| | INFORES("GEN","B") } //Borrar



*** Menu PRINCIPAL *************************

aTexto := {textRES1,textRES2,textRES3,textRES4}
aBlock[1] := {| | Menuv(2,00,aTexto1,aBlock1)}  //Mantenimiento
aBlock[2] := {| | Menuv(2,14,aTexto2,aBlock2)}  //Recogidas
aBlock[3] := {| | Menuv(2,24,aTexto3,aBlock3)}  //Reservas
aBlock[4] := {| | Menuv(2,33,aTexto4,aBlock4)}  //Informes

MENUH(aTexto,aBlock)   //Ejecucion del menu principal


return NIL


**********************************************************************************
**********************************************************************************
**********************************************************************************
**********************    FIN   PROGRAMA     *************************************
**********************************************************************************
**********************************************************************************
**********************************************************************************

